knitr::opts_chunk$set(echo = TRUE)
devtools::install_github("cmf-uchicago/cmfproperty")
## WARNING: Rtools is required to build R packages, but is not currently installed.
##
## Please download and install Rtools 4.0 from https://cran.r-project.org/bin/windows/Rtools/.
## Skipping install of 'cmfproperty' from a github remote, the SHA1 (78054fd9) has not changed since last install.
## Use `force = TRUE` to force installation
library(tidyverse)
## -- Attaching packages --------------------------------------- tidyverse 1.3.1 --
## v ggplot2 3.3.5 v purrr 0.3.4
## v tibble 3.1.6 v dplyr 1.0.7
## v tidyr 1.1.4 v stringr 1.4.0
## v readr 2.1.1 v forcats 0.5.1
## -- Conflicts ------------------------------------------ tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::lag() masks stats::lag()
library(DBI)
library(dbplyr)
##
## 载入程辑包：'dbplyr'
## The following objects are masked from 'package:dplyr':
##
## ident, sql
library(sf)
## Linking to GEOS 3.9.1, GDAL 3.2.1, PROJ 7.2.1; sf_use_s2() is TRUE
library(cmfproperty)
library(lubridate)
##
## 载入程辑包：'lubridate'
## The following objects are masked from 'package:base':
##
## date, intersect, setdiff, union
con <- dbConnect(RSQLite::SQLite(), "C:/Users/yitia/Desktop/470/part.1/detroit.sqlite")
DBI::dbListTables(con)
## [1] "assessments" "blight" "foreclosures" "parcels"
## [5] "parcels_historic" "sales"
sales <- dplyr::tbl(con, 'sales') %>% dplyr::collect()
assessments <- dplyr::tbl(con, 'assessments') %>% dplyr::collect()
blight <- dplyr::tbl(con, 'blight') %>% dplyr::collect()
foreclosures <- dplyr::tbl(con, 'foreclosures') %>% dplyr::collect()
parcels <- dplyr::tbl(con, 'parcels') %>% dplyr::collect()
parcels_historic <- dplyr::tbl(con, 'parcels_historic') %>% dplyr::collect()
dbDisconnect(con)
sales
assessments
blight
foreclosures
parcels